home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAM_RAD / LOGGING / 3090.ZIP / SETUP.PRG < prev    next >
Text File  |  1987-03-20  |  496b  |  25 lines
  1. * SETUP.PRG
  2. * SETUP BLANK LOGS TO START UP A LOG SYSTEM
  3. * 03/20/87
  4. *
  5. ? ' *** WARNING - THIS WILL OVERWRITE ANY EXISTING FILES ***'
  6. ACCEPT ' CONTINUE Y/N? ' TO MGO
  7. STORE UPPER(MGO) TO MGO
  8. IF MGO <> 'Y'
  9.    RETURN
  10. ENDIF
  11. USE CONTEMPT
  12. COPY STRUCT TO CONTEST
  13. USE CONTEST
  14. INDEX ON CALL TO CONTEST
  15. USE LOGEMPT
  16. COPY STRUCT TO LOG
  17. USE LOG 
  18. INDEX ON CALL TO LOG
  19. USE COUNEMPT
  20. COPY STRUCT TO COUNTRY
  21. INDEX ON PREFIX TO COUNTRY
  22. USE STATEMPT
  23. COPY STRUCT TO STATE
  24. INDEX ON STATE TO STATE
  25.